plotly

LifeExpIncomFinal <- "https://raw.githubusercontent.com/APM3030/STA553/main/homework3/LifeExpIncomFinal.csv"
LifeExpIncomFinal <- read_csv(LifeExpIncomFinal)

## New names:
## * `` -> ...1
## * ...1 -> ...2

## Rows: 42486 Columns: 8
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (2): geo, region
## dbl (6): ...1, ...2, Year, Income, LifeExp, Population
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

LifeExpIncomFinal <- mutate(LifeExpIncomFinal, Year = as.integer(LifeExpIncomFinal$Year))

#subet data for year 2015
leifinal2015 <- LifeExpIncomFinal %>% filter(Year == 2015)
#plot the data 
#consider using ggplotly
plot_ly(
  data = leifinal2015,
  x = ~Income ,  # Horizontal axis 
  y = ~LifeExp ,   # Vertical axis   # must be a numeric factor
  text = ~geo,   #location in the hover text
hovertemplate = paste(
"<b>{text}</b><br><br>",
      "%{yaxis.title.text}: %{y:}<br>",

      "%{xaxis.title.text}: %{x:}<br>",

      "Population: %{marker.size:}",
      
      "<extra></extra>"),

  color = ~factor(geo),
  alpha  = 0.5 ,
  size = ~Population,
  type = "scatter",
  mode = "markers"
   ) %>%
    layout(showlegend = FALSE, 
            title =list(text = "Relationship Between Life Expectancy and GDP", 
                          font = list(family = "Arial",    
                                        size = 18,
                                      face = "bold")),
           xaxis = list( 
                    title=list(text = 'GDP Per Capita')),
           yaxis = list (
                    title = list(text = 'Life Expectancy')
           )

    )

## Warning: Ignoring 6 observations

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

plot_ly(
    data = leifinal2015,
    x = ~Income,  # Horizontal axis 
    y = ~LifeExp,   # Vertical axis 
    color = ~factor(geo),  # must be a numeric factor
     text = ~Population,     # show the species in the hover text
     ## using the following hovertemplate() to add the information of the
     ## two numerical variable to the hover text.
     hovertemplate = paste('<i><b>Life Expectancy<b></i>: %{y}',
                           '<br><b>GDP Per Capita</b>:  %{x}',
                           '<br><b>%{text}</b>'),
     alpha  = 0.9,
     size = ~Population,
     type = "scatter",
     mode = "markers")

## Warning: Ignoring 6 observations

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors